unit uSetLanguage;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics,
  Controls, Forms, Dialogs, uniGUITypes, uniGUIAbstractClasses,
  uniGUIClasses, uniGUIForm, uniButton, uniBitBtn, uniGUIBaseClasses, uniPanel,
  uniBasicGrid, uniDBGrid, Data.DB, Datasnap.DBClient, ClientRowSet;

type
  TFrmSetLanguage = class(TUniForm)
    UniPanel1: TUniPanel;
    btAdd: TUniBitBtn;
    btEdit: TUniBitBtn;
    btDelete: TUniBitBtn;
    gridActor: TUniDBGrid;
    crsLang: TClientRowSet;
    dsLang: TDataSource;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

function FrmSetLanguage: TFrmSetLanguage;

implementation

{$R *.dfm}

uses
  MainModule, uniGUIApplication, ExpModule;

function FrmSetLanguage: TFrmSetLanguage;
begin
  Result := TFrmSetLanguage(UniMainModule.GetFormInstance(TFrmSetLanguage));
end;

end.
